<%
'This page contains an array of colors to be used as default set of colors for FusionCharts
'arr_FCColors is the array that would contain the hex code of colors
'ALL COLORS HEX CODES TO BE USED WITHOUT #
Dim arr_FCColors(7), intFCColors_count
'Count of the number of colors
intFCColors_count = 7
arr_FCColors(1) = "0099FF"
arr_FCColors(2) = "66CC66"
arr_FCColors(3) = "CD6AC0"
arr_FCColors(4) = "FF5904"
arr_FCColors(5) = "CCCCFF" 'Light violet
arr_FCColors(6) = "669900" 'Shade of green
arr_FCColors(7) = "1941A5" 'Dark Blue

Dim strChartT5CXML

strChartT5CXML = "<graph shownames='1' showvalues='0' decimalPrecision='0' numberPrefix='$'>" & vbCrlf
'Now iterate through each data row
intCounter=0
While not oRs.EOF
    'Increase the count
    intCounter=intCounter+1
    'Append the value in format <set name='...' value='...' color='...' />
    strChartT5CXML = strChartT5CXML & "<set name='" & ors("Country") & "' value='" & ors("Total") & "'     color='" & arr_FCColors(intCounter mod intFCColors_count) & "'/>" & vbCrlf
    oRs.MoveNext()
Wend
'Entire XML - concatenation
strChartT5CXML = strChartT5CXML & "</graph>"
oRs.Close()
'--------------------------------------------------------------------
'Destroy objects
Set oRs= nothing
'Write the XML data to output stream
Response.Write(strChartT5CXML)
%>